home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / commoditys / bexchange10 / install_français < prev    next >
Text File  |  1996-04-07  |  4KB  |  160 lines
  1. ;
  2. ; $VER: Installation de BGUI-Exchange v1.0 (28.5.1995)
  3. ;
  4. ;       Installer script pour BGUI-Exchange.
  5. ;
  6.  
  7.         (set UserLevel.old @user-level)
  8.  
  9. ; Initialisation des messages.
  10.  
  11.         (set Language 16)
  12.  
  13.         (set #WrongKickStart "\nBGUI-Exchange ne fonctionne qu'avec un KickStart >= à 2.04.")
  14.  
  15.  
  16.  
  17. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  18.  
  19.         (if (< (/ (getversion) 65536) 37)
  20.           (abort #WrongKickStart)
  21.         )
  22.  
  23.  
  24. (set LangueHelp "Choisisser dans quelle langue vous voulez la documentation.")
  25.  
  26. (set IconHelp "Choisissez dans quel format vous-voulez vos icônes:\n\n- 4 couleurs:          Icônes standards\n- 8 couleurs MagicWB : Standard MagicWB\n- NewIcon :            Standard NewIcon")
  27. (set bguiHelp "La bgui.library est une library facilitant la création d'interface et offrant de plus belle interface\n\nbgui.library   (C) 1993-1995 Jan van den Baard")
  28.  
  29.  
  30. ;
  31. ; Répertoire de destination
  32. ; *************************
  33. ;
  34.  
  35. (set Path.source (pathonly @icon) )
  36.  
  37. (set  Path.dest
  38.         (askdir
  39.                 (prompt "\nSélectionner ou créer un répertoire dans lequel vous voulez installer BGUI-Exchange.\n")
  40.                 (help @askdir-help)
  41.                 (default "Sys:Tools/Commodities")
  42.         )
  43. )
  44.  
  45.  
  46. ; Copie de l'executable
  47. ; **********************
  48. (copyfiles
  49.         (prompt "Copie de BGUI-Exchange")
  50.         (help @copyfiles-help)
  51.         (source Path.source)
  52.         (dest Path.dest)
  53.         (choices "BGUI-Exchange" "BGUI-Exchange.info")
  54. )
  55.  
  56.  
  57. ; Copie du catalogs Français
  58. ; **************************
  59.  
  60. (copyfiles
  61.     (prompt "Copie du catalogs de BGUI-Exchange")
  62.     (source Path.source)
  63.     (dest Path.dest)
  64.     (choices "catalogs")
  65. )
  66.  
  67.  
  68. ; Copie de la documentation
  69. ; *************************
  70. (set Doc (askchoice
  71.             (prompt "Documentation de BGUI-Exchange")
  72.             (choices "Française" "Anglaise")
  73.             (help LangueHelp)
  74.             (default 0)
  75.  
  76.     )
  77. )
  78.  
  79.  
  80.     (if (= Doc 0)
  81.         (copyfiles
  82.             (source "BGUI-Exchange_FR.guide")
  83.             (dest Path.dest)
  84.             (newname "BGUI-Exchange.guide")
  85.             (infos)
  86.         )
  87.     )
  88.  
  89.     (if (= Doc 1)
  90.         (copyfiles
  91.             (source "BGUI-Exchange_ENG.guide")
  92.             (dest Path.dest)
  93.             (newname "BGUI-Exchange.guide")
  94.             (infos)
  95.         )
  96.     )
  97.  
  98.  
  99.  
  100.  
  101. ; On copie les icônes
  102. ; *******************
  103. (set Icon (askchoice
  104.             (prompt "Quel type d'icône voulais utiliser ?")
  105.             (choices "4 couleurs" "MagicWB" "NewIcon")
  106.             (help IconHelp)
  107.     )
  108. )
  109.  
  110.     ; MagicWB ?
  111.     ; *********
  112.     (if (= Icon 1)
  113.         (
  114.         (copyfiles
  115.             (source "Icons/EXE_MagicWb.info")
  116.             (dest Path.dest)
  117.             (newname "BGUI-Exchange.info")
  118.         )
  119.  
  120.         (copyfiles
  121.             (source "Icons/Guide_MagicWb.info")
  122.             (dest Path.dest)
  123.             (newname "BGUI-Exchange.guide.info")
  124.         )
  125.         )
  126.     )
  127.  
  128.     ; NewIcon ?
  129.     ; *********
  130.     (if (= Icon 2)
  131.         (
  132.         (copyfiles
  133.             (source "Icons/EXE_NewIcon.info")
  134.             (dest Path.dest)
  135.             (newname "BGUI-Exchange.info")
  136.         )
  137.  
  138.         (copyfiles
  139.             (source "Icons/Guide_NewIcon.info")
  140.             (dest Path.dest)
  141.             (newname "BGUI-Exchange.guide.info")
  142.         )
  143.         )
  144.     )
  145.  
  146.  
  147. ; Copie de la bgui.library
  148. ; ************************
  149. (copylib
  150.     (prompt "Copie de la bgui.library")
  151.     (source "libs/bgui.library")
  152.     (dest "Libs:")
  153.     (help bguiHelp)
  154.     (confirm)
  155. )
  156.  
  157. (set @default-dest Path.dest )
  158.         (exit)
  159.  
  160.